Font Function

Used to access the names of fonts installed on the user's computer.

Syntax

result = Font( index )

Parameters
index	Integer	The number of the font.

Notes

Fonts are accessed in alphabetical order where font 0 is the first font. Use the FontCount function to determine the number of fonts.

Examples

This is an example of a function that determines if the font named passed is installed on the user's computer:

Function FontAvailable(FontName As String) as Boolean
Dim i,n as Integer
n= FontCount-1
For i=0 to n
If Font(i)=FontName Then
Return True
End If
Next
Return False

This example dynamically creates a Font menu using a menu item array named FontFontName:

Dim m as MenuItem
Dim i,n as Integer
n= FontCount-1
FontFontName(0).Text=Font(0)
For i=1 to n
m= New FontFontName
m.Text=Font(i)
Next